home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
EGAVGA.SWG
/
0111_Set Border (BASM).pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-08-24
|
391b
|
23 lines
{ EM> Does anyone happen to know how to change the border color?}
const border:boolean=true;
procedure setborder(col:byte); assembler;
asm
xor ch,ch
mov cl,border
jcxz @out
mov dx,3dah
in al,dx
mov dx,3c0h
mov al,11h+32
out dx,al
mov al,col
out dx,al
@out:
end;
BEGIN
SetBorder(1); { make it blue }
Readln;
SetBorder(0); { back to black }
END.